home *** CD-ROM | disk | FTP | other *** search
/ Megazin 3 / Megazin - Issue 3 (1993-12-01)(Vicious).adf / STUFF / mst-sdtr.lha / stardust_newboot.asm < prev    next >
Assembly Source File  |  1993-12-08  |  2KB  |  97 lines
  1.  
  2.     section    boot,code_c
  3.  
  4. ****************************************************************************
  5. run    DC.B    'DOS',0
  6.     DC.L    $251D5100,0
  7.     MOVEM.L    D0-D7/A0-A6,-(SP)
  8.     MOVE.W    #2,$001C(A1)
  9.     MOVE.L    #$00003E00,$0024(A1)
  10.     MOVE.L    #$0004F000,$0028(A1)
  11.     MOVE.L    #$000D5C00,$002C(A1)
  12.     MOVE.L    4,A6
  13.     JSR    -$01C8(A6)
  14.     JSR    $0004F020
  15.     MOVEM.L    (SP)+,D0-D7/A0-A6
  16.     MOVE.L    A1,-(SP)
  17.     MOVEQ    #2,D1
  18.     MOVE.L    #$00045000,D0
  19.     JSR    -$00C6(A6)
  20.     MOVE.L    D0,D6
  21.     MOVEQ    #1,D1
  22.     MOVE.L    #$00040000,D0
  23.     JSR    -$00C6(A6)
  24.     ADD.L    #$00040000,D0
  25.     AND.L    #$FFF80000,D0
  26.     BEQ    lbC00012C
  27.     MOVE.L    D0,D7
  28.     MOVE.L    (SP)+,A1
  29.     MOVE.W    #2,$001C(A1)
  30.     MOVE.L    D6,$0028(A1)
  31.     MOVE.L    #$00001600,$0024(A1)
  32.     MOVE.L    #$00001600,$002C(A1)
  33.     JSR    -$01C8(A6)
  34.     CLR.B    $00BFE001
  35.     MOVE.B    #3,$00BFE201
  36.     LEA    $00DFF000,A4
  37.     MOVE.W    #$7FFF,D0
  38.     MOVE.W    D0,$009A(A4)
  39.     MOVE.W    D0,$009C(A4)
  40.     MOVE.W    D0,$0096(A4)
  41.     MOVE.W    #$0200,$0100(A4)
  42.     MOVE.W    #0,$0110(A4)
  43.     MOVE.W    #0,$0180(A4)
  44.     MOVE.L    $0014(A1),A2
  45.     MOVE.L    $0018(A1),A1
  46.     LEA    $0024(A2),A2
  47.     MOVEQ    #0,D5
  48.     CMP.L    (A2)+,A1
  49.     BEQ.S    lbC0000EA
  50.     MOVEQ    #1,D5
  51.     CMP.L    (A2)+,A1
  52.     BEQ.S    lbC0000EA
  53.     MOVEQ    #2,D5
  54.     CMP.L    (A2)+,A1
  55.     BEQ.S    lbC0000EA
  56.     MOVEQ    #3,D5
  57.     CMP.L    (A2)+,A1
  58.     BEQ.S    lbC0000EA
  59.     MOVEQ    #0,D5
  60. lbC0000EA:
  61.     MOVE.W    $0128(A6),D1
  62.     PEA    lbC0000F8(PC)
  63.     MOVE.L    (SP)+,$80
  64.     TRAP    #0
  65. lbC0000F8:
  66.     MOVE.L    D7,SP
  67.     LEA    $0200(SP),SP
  68.     MOVEQ    #0,D0
  69.     BTST    #0,D1
  70.     BEQ.S    lbC000114
  71.     DC.W    $4E7B,$0801
  72.     BTST    #1,D1
  73.     BEQ.S    lbC000114
  74.     DC.W    $4E7B,2
  75. lbC000114:
  76.     ANDI.W    #$DFFF,SR
  77.     MOVE.L    D7,SP
  78.     LEA    $0400(SP),SP
  79.     ADD.L    #$00000400,D7
  80.     MOVE.L    D6,A0
  81.     LEA    $0104(A0),A0
  82.  
  83.     movem.l    a0/a1,-(a7)
  84. *$5d16-$5aec
  85.     move.w    #$20d0,$5d16-$5aec(a0)    ; 1st lev7 protection! free abput 1k!
  86.     lea    $5c6c-$5aec(a0),a1
  87.     move.l    #$2a7a0194,(a1)+
  88.     move.l    #$3b7c20d0,(a1)+
  89.     move.l    #$01be4eb8,(a1)+    ; 2st lev7 ($c005be-$c00400=$01be)
  90.     move.l    #$02004ed5,(a1)+
  91.     movem.l    (a7)+,a0/a1
  92.     JMP    (A0)
  93. lbC00012C:
  94.     MOVE.W    $00DFF006,$00DFF180
  95.     BRA.S    lbC00012C
  96.     blk.b    1024,0
  97.